home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Pascal / Libraries / SARuntime ƒ / MPW Stand-Alone Libraries / USingleSegSA.p < prev    next >
Encoding:
Text File  |  1991-02-10  |  1.2 KB  |  49 lines  |  [TEXT/MPS ]
  1. {[a-,body+,h-,o=100,r+,rec+,t=4,u+,#+,j=20/57/1$,n+]}
  2. {$D+}
  3.  
  4. UNIT USingleSegSA;
  5.  
  6. INTERFACE
  7.  
  8. {--------------------------------------------------------------------------------------------------}
  9.  
  10. USES
  11.     { • MacApp }
  12.     UMacApp,
  13.  
  14.     { • Building Blocks }
  15.  
  16.     { • Required for this unit's interface }
  17.     UAssociation,
  18.  
  19.     { • Implementation use }
  20.     CursorCtl, Signal, PasLibIntf, IntEnv, ErrMgr, Events, OSUtils, Memory,
  21.     Resources, Fonts, Packages, ToolUtils, Errors,
  22.  
  23.     { • Inherits from }
  24.     UMPWTool, UMakeSAGlobals, UMakeSA, UMultiSegSA;
  25.  
  26. TYPE
  27.  
  28.     TSingleSegSA        = OBJECT (TMultiSegSA)
  29.  
  30.         PROCEDURE TSingleSegSA.ISingleSegSA(aFile: FileSpec;
  31.                                         mainType: ResType;
  32.                                         mainID: Integer;
  33.                                         mainName: StringHandle);
  34.  
  35.         FUNCTION TSingleSegSA.WillBeMerged(theID: Integer;
  36.                                         theName: Str255): BOOLEAN; OVERRIDE;
  37.                                     
  38.         PROCEDURE TSingleSegSA.CalcSegTableSize(theCount: Integer;
  39.                                         hasCtorDtorJT: Boolean); OVERRIDE;
  40.  
  41.         PROCEDURE TSingleSegSA.MergeCodeSegments(saCode: Handle;
  42.                                         VAR saPos: LongInt); OVERRIDE;
  43.     END;
  44.     
  45. {--------------------------------------------------------------------------------------------------}
  46.  
  47. IMPLEMENTATION
  48.     {$I USingleSegSA.incl.p}
  49. END.